The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Object.dxr/00084.ls

Text File | 1998-11-19 | 3.6 KB | 140 lines

global gqtvrinstance, qtvrpath, gpictfilepath, objectlist, objpos, bkgrdlist, objpropertylist, poslist, objnum, objpctsprite, objnamesprite, returnframe

on prepareMovie
  set qtvrpath to "..\Qtvr\"
  set gpictfilepath to "..\Image\"
  set objpctsprite to 9
  set objnamesprite to 10
  set returnframe to label("Restart") + 1
  set poslist to [point(464, 157), point(188, 157), point(188, 320), point(464, 320)]
  set objnum to the text of field "Current Object"
  set the volume of sound 1 to 110
  cursor(-1)
end

on startMovie
  if soundBusy(1) then
    sound stop 1
  end if
  playthesound(1, "..\Audio\Music3.wav")
  initialbutton()
  createcodelist()
  repeat with objpropertylist in objectlist
    set objnum to getAt(objpropertylist, 1)
    if objnum = the text of field "Current Object" then
      set objpos to getOne(objpropertylist, objnum)
      exit repeat
    end if
  end repeat
end

on initialbutton
  repeat with spriteNum = 11 to 16
    set the visible of sprite spriteNum to 1
    puppetSprite(spriteNum, 0)
  end repeat
  set the visible of sprite 23 to 1
  set the visible of sprite 24 to 1
end

on stopMovie
  gobackpath()
end

on recttostr myrect
  set mystring to string(myrect)
  delete char 1 to 5 of mystring
  delete char the length of mystring of mystring
  return mystring
end

on closemovie
  if isqtvrmovie(gqtvrinstance) then
    qtvrclose(gqtvrinstance)
  end if
end

on openqtvr
  qtvrenter(xtra("QTVRXtra"))
  set gqtvrinstance to new(xtra("QTVRXtra"))
  set qtvrRect to recttostr(the rect of sprite 120)
  set qtvrFile to the pathName & qtvrpath & "P" & the text of field "Current Object" & "0.mov"
  qtvropen(gqtvrinstance, qtvrFile, qtvrRect, "visible")
  en()
end

on createcodelist
  set filelist to "ObjectProperty"
  set linecounter to the number of lines in field filelist
  set objectlist to []
  repeat with i = 1 to linecounter
    add(objectlist, value(line i of field filelist))
  end repeat
end

on importpict
  global medpct
  set the visible of sprite objpctsprite to 0
  set objnum to the text of field "Current Object"
  set bknum to getaProp(objpropertylist, #bkgnd)
  puppetSprite(1, 1)
  set the memberNum of sprite 1 to the number of member ("backgd" & bknum)
  set medpct to objnum & "10"
  set x to the number of member "NormalView"
  set the fileName of member "NormalView" to the pathName & gpictfilepath & medpct & ".pct"
  set the name of member x to "NormalView"
  set the visible of sprite objpctsprite to 1
  updateStage()
end

on showobjname
  puppetSprite(objnamesprite, 1)
  set the castLibNum of sprite objnamesprite to the number of castLib "LObject"
  set the memberNum of sprite objnamesprite to the number of member ("D" & objnum & "0")
end

on switchobj whichway
  global importflag
  initialbutton()
  if (whichway = "prev") and (objpos > 1) then
    set objpos to objpos - 1
  else
    if (whichway = "next") and (objpos < count(objectlist)) then
      set objpos to objpos + 1
    end if
  end if
  set objpropertylist to getAt(objectlist, objpos)
  put getaProp(objpropertylist, objpos) into field "Current Object"
  set importflag to 0
  unloadMember(member "NormalView")
  unloadMember(member "CloseView")
  go(label("Restart") - 1)
end

on quitvr
  closemovie()
  set gqtvrinstance to 0
  qtvrexit(xtra("QTVRXtra"))
  go("Restart")
end

on pressnobtn
  repeat with spriteNum = 116 to 118
    puppetSprite(spriteNum, 0)
  end repeat
  go(label("Restart") + 1)
end

on gotoindex
  put "[#FrameNumber: 1, #Text: rect(0, 0, 0, 0), #Flag: 0]" into field "Index Location"
  go(1, "Index")
end

on idle
  soundwait(1, "..\Audio\Music3.wav")
end

on showcast castlibname
  set the fileName of castLib "LObject" to castlibname
end